home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-APP12.ZIP / TR-APP12.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-05-18  |  3KB  |  189 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     String   STRING001
  38.     String   STRING002
  39.     String   STRING003
  40.     String   STRING004
  41.     String   STRING005
  42.     String   STRING006
  43.     String   STRING007
  44.     String   STRING008
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     FOpen 1, PPEPath() + "TR-AP12.CFG", 0, 0
  49.     FGet 1, INTEGER001
  50.     FGet 1, INTEGER002
  51.     FGet 1, INTEGER003
  52.     FGet 1, INTEGER004
  53.     FGet 1, INTEGER005
  54.     FGet 1, INTEGER006
  55.     FGet 1, INTEGER007
  56.     FGet 1, INTEGER008
  57.     FGet 1, INTEGER009
  58.     FGet 1, INTEGER010
  59.     FGet 1, INTEGER011
  60.     FGet 1, INTEGER012
  61.     FGet 1, INTEGER013
  62.     FGet 1, INTEGER014
  63.     FGet 1, INTEGER015
  64.     FGet 1, INTEGER016
  65.     FGet 1, INTEGER017
  66.     FGet 1, INTEGER018
  67.     FClose 1
  68.     DispFile PPEPath() + "!TR-AP12.PCB", 1
  69.     :LABEL001
  70.     AnsiPos INTEGER009, INTEGER010
  71.     InputStr "_", STRING005, 15, 20, Mask_Ascii(), 8
  72.     If (STRING005 == "") Goto LABEL001
  73.     :LABEL002
  74.     AnsiPos INTEGER003, INTEGER004
  75.     InputStr "_", STRING002, 15, 20, Mask_Ascii(), 4096
  76.     If (STRING002 == "") Goto LABEL002
  77.     :LABEL003
  78.     AnsiPos INTEGER001, INTEGER002
  79.     InputStr "_", STRING001, 15, 12, Mask_Pwd(), 8 + 1
  80.     If (STRING001 == "") Goto LABEL003
  81.     If (STRING001 == STRING005) Goto LABEL007
  82.     If (STRING001 == U_Name()) Goto LABEL007
  83.     AnsiPos INTEGER013, INTEGER014
  84.     Print "@X0FRetry@X07..."
  85.     AnsiPos INTEGER015, INTEGER016
  86.     InputStr "_", STRING007, 15, 12, Mask_Pwd(), 8 + 1
  87.     If (STRING007 == STRING001) Goto LABEL004
  88.     AnsiPos INTEGER014, INTEGER015
  89.     Print "        "
  90.     Goto LABEL003
  91.     :LABEL004
  92.     AnsiPos INTEGER005, INTEGER006
  93.     InputStr "_", STRING003, 15, 10, Mask_Num(), 8
  94.     If (STRING003 == "") Goto LABEL004
  95.     :LABEL005
  96.     AnsiPos INTEGER007, INTEGER008
  97.     InputStr "_", STRING004, 15, 10, Mask_Num(), 8
  98.     If (STRING004 == "") Goto LABEL005
  99.     :LABEL006
  100.     AnsiPos INTEGER011, INTEGER012
  101.     InputStr "_", STRING006, 15, 1, "YyNn", 16384
  102.     If (STRING006 == "") Goto LABEL006
  103.     STRING008 = U_Name()
  104.     If (Exist(PPEPath() + "TR-AP12b.TMP")) Delete PPEPath() + "TR-AP12b.TMP"
  105.     FCreate 1, PPEPath() + "TR-AP12b.TMP", 1, 0
  106.     FPutLn 1, "@X0Bn@X03ew @X0Bu@X03ser @X0Bi@X03s " + STRING008
  107.     FPutLn 1, ""
  108.     FPutLn 1, "@X0Ar@X02eal @X0An@X02ame @X08:@X09 @X09" + STRING005
  109.     FPutLn 1, "@X0Aa@X02ffrils @X08  :@X08 " + STRING002
  110.     FPutLn 1, "@X0Ap@X02assword  @X08:@X09 " + STRING001
  111.     FPutLn 1, "@X0Av@X02oice @X0An@X02umber @X08: @X08" + STRING003
  112.     FPutLn 1, "@X0Ad@X02ata @X0An@X02umber  @X08: " + STRING004
  113.     FPutLn 1, "@X0Ac@X0A@X02lrscr @X08? @X09" + STRING006
  114.     FClose 1
  115.     Message 0, "SYSOP", STRING008, "NEW USER INFOMATION!", "R", Date(), "FALSE", "FALSE", PPEPath() + "TR-AP12b.TMP"
  116.     Delete PPEPath() + "TR-AP12b.TMP"
  117.     If (Exist(PPEPath() + "TR-AP12a.TMP")) Delete PPEPath() + "TR-AP12a.TMP"
  118.     FCreate 1, PPEPath() + "TR-AP12a.TMP", 1, 0
  119.     FPutLn 1, STRING001
  120.     FPutLn 1, STRING001
  121.     FPutLn 1, STRING002
  122.     FPutLn 1, STRING003
  123.     FPutLn 1, STRING004
  124.     FPutLn 1, "REAL NAME : " + STRING005
  125.     FPutLn 1, STRING006
  126.     FClose 1
  127.     KbdFile PPEPath() + "TR-AP12a.TMP"
  128.     Print "@CLS@"
  129.     End
  130.     :LABEL007
  131.     AnsiPos INTEGER017, INTEGER018
  132.     Print "nocando!"
  133.     Delay 7
  134.     Goto LABEL003
  135.  
  136. ;------------------------------------------------------------------------------
  137. ;
  138. ; Usage report (before postprocessing)
  139. ;
  140. ; ■ Statements used :
  141. ;
  142. ;    1       End
  143. ;    17      Goto 
  144. ;    1       Let 
  145. ;    4       Print 
  146. ;    11      If 
  147. ;    1       DispFile 
  148. ;    2       FCreate 
  149. ;    1       FOpen 
  150. ;    3       FClose 
  151. ;    18      FGet 
  152. ;    15      FPutLn 
  153. ;    3       Delete 
  154. ;    7       InputStr 
  155. ;    1       Delay 
  156. ;    1       KbdFile 
  157. ;    10      AnsiPos 
  158. ;    1       Message 
  159. ;
  160. ;
  161. ; ■ Functions used :
  162. ;
  163. ;    21      +
  164. ;    9       ==
  165. ;    1       Date()
  166. ;    2       U_Name()
  167. ;    2       Mask_Pwd()
  168. ;    2       Mask_Num()
  169. ;    2       Mask_Ascii()
  170. ;    11      PPEPath()
  171. ;    2       Exist()
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Analysis flags : No flag
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Postprocessing report
  180. ;
  181. ;    0       For/Next
  182. ;    0       While/EndWhile
  183. ;    0       If/Then or If/Then/Else
  184. ;    0       Select Case
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;                 AEGiS Corp - Break the routines, code against the machines!
  188. ;------------------------------------------------------------------------------
  189.